home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TURB_VIS / ALEXLEVI / DEMO / DEMOUSE.ASM < prev    next >
Assembly Source File  |  1994-04-12  |  2KB  |  87 lines
  1.  
  2. ;
  3. ;****************************************************************************
  4. ;*                                                                          *
  5. ;*     This procedure was made by Alex Levitas' "Mouse Cursor Editor".      *
  6. ;*                                                                          *
  7. ;****************************************************************************
  8. ;
  9. ; This procedure changes mouse cursor icon in graphic mode.
  10. ;
  11. ; Procedure has no parameters and no return value. Value of AX, BX,
  12. ; CX and DX will be changed.
  13. ;
  14. ;                            W A R N I N G ! ! !
  15. ; This procedure DOES NOT check mouse existence, DOES NOT initialize mouse,
  16. ; but  ONLY  change icon  of active  initialized  mouse in graphic mode ! !
  17. ;
  18. ; To use this procedure in your program, insert the directive
  19. ;
  20. ;    INCLUDE DEMOUSE.ASM
  21. ;
  22. ; If you want to use more than one changed icon in your program, you
  23. ; must change procedure name in each source file.
  24. ;
  25.  
  26. ChangeMouseCursor  PROC NEAR
  27.  
  28.       PUSH  ES
  29.       PUSH  CS
  30.       POP   ES
  31.       MOV   DX, offset $ + 14h
  32.       MOV   BX, word ptr CS:[$ + 51h]
  33.       MOV   CX, word ptr CS:[$ + 4Eh]
  34.       MOV   AX, 9
  35.       INT   33h
  36.       POP   ES
  37.       RET
  38.  
  39. ;     Screen Mask
  40.  
  41.        DW    57375d
  42.        DW    57375d
  43.        DW    57375d
  44.        DW    49167d
  45.        DW    32775d
  46.        DW        3d
  47.        DW        3d
  48.        DW        1d
  49.        DW        3d
  50.        DW        3d
  51.        DW    32775d
  52.        DW    49167d
  53.        DW    57375d
  54.        DW    57375d
  55.        DW    57375d
  56.        DW    65535d
  57.  
  58. ;     Cursor Mask
  59.  
  60.        DW        0d
  61.        DW     4032d
  62.        DW     4032d
  63.        DW     4128d
  64.        DW     8464d
  65.        DW    16648d
  66.        DW    16648d
  67.        DW    16652d
  68.        DW    16904d
  69.        DW    17416d
  70.        DW     8208d
  71.        DW     4128d
  72.        DW     4032d
  73.        DW     4032d
  74.        DW        0d
  75.        DW        0d
  76.  
  77. ;      Hot dot X
  78.  
  79.        DW        7d
  80.  
  81. ;      Hot dot Y
  82.  
  83.        DW        7d
  84.  
  85. ENDP
  86.  
  87.